program example_focussing_slab
use module_slab
implicit none



write(6,*) "*************** give no *****************"
read(5,*) nob

call compute_surface

end program example_focussing_slab

